Scene Storm/Scene Storm - Volume 1.iso/coding/asm/utils/crossword/includes/cwdiscreq.i

Text File | 1980-01-04 | 16.0 KB | 1,237 lines

* Crossword disc requester file
* includes the giant disc access requester which is actually
* implemented as a pair of windows to make life a damn sight
* easier for such things as formatted printing.

;tmpzzz    equ    WINDOWSIZING+WINDOWDEPTH


DiscWindow1:

    dc.w    0,0
    dc.w    320,256
    dc.b    0,1
    dc.l    GADGETDOWN+GADGETUP+DISKINSERTED+DISKREMOVED
    dc.l    BORDERLESS+RMBTRAP+SMART_REFRESH+NOCAREREFRESH
    dc.l    ND_PickDF0    ;gadgets
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    5,5
    dc.w    -1,-1
    dc.w    CUSTOMSCREEN

DiscWindow2:

    dc.w    28,74
    dc.w    114,93
    dc.b    0,1
    dc.l    NULL
    dc.l    BORDERLESS+RMBTRAP+SMART_REFRESH+NOCAREREFRESH
    dc.l    LW_Pick1
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    5,5
    dc.w    -1,-1
    dc.w    CUSTOMSCREEN


DiscWindow3:

    dc.w    0,20
    dc.w    320,160
    dc.b    0,1
    dc.l    MOUSEBUTTONS
    dc.l    BORDERLESS+RMBTRAP+SMART_REFRESH+NOCAREREFRESH
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    5,5
    dc.w    -1,-1
    dc.w    CUSTOMSCREEN


DiscWindow4:

    dc.w    0,20
    dc.w    320,160
    dc.b    4,1
    dc.l    GADGETUP+GADGETDOWN
    dc.l    BORDERLESS+RMBTRAP+SMART_REFRESH+NOCAREREFRESH
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    5,5
    dc.w    -1,-1
    dc.w    CUSTOMSCREEN


ND_PickDF0:
    dc.l    ND_PickDF1
    dc.w    32,30
    dc.w    30,30
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    RELVERIFY
    dc.w    BOOLGADGET
    dc.l    DBR30x30
    dc.l    DBS30x30
    dc.l    ITX1
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneIG        ;extra entry!
    dc.l    SetDF0

ITX1:
    dc.b    9,0,RP_JAM1,0
    dc.w    1,33
    dc.l    NULL
    dc.l    ITTX1
    dc.l    ITX2

ITTX1:
    dc.b    'DF0:',0
    cnop 0,2

ITX2:
    dc.b    1,0,RP_JAM1,0
    dc.w    0,32
    dc.l    NULL
    dc.l    ITTX1
    dc.l    NULL

ND_PickDF1:
    dc.l    ND_PickDH
    dc.w    66,30
    dc.w    30,30
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    DBR30x30
    dc.l    DBS30x30
    dc.l    ITX3
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneIG
    dc.l    SetDF1        ;extra entry!

ITX3:
    dc.b    9,0,RP_JAM1,0
    dc.w    1,33
    dc.l    NULL
    dc.l    ITTX3
    dc.l    ITX4

ITTX3:
    dc.b    'DF1:',0
    cnop 0,2

ITX4:
    dc.b    1,0,RP_JAM1,0
    dc.w    0,32
    dc.l    NULL
    dc.l    ITTX3
    dc.l    NULL

ND_PickDH:
    dc.l    ND_PickRAM
    dc.w    100,30
    dc.w    30,30
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    DBR30x30
    dc.l    DBS30x30
    dc.l    ITX5
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    SetHardDisc

ITX5:
    dc.b    9,0,RP_JAM1,0
    dc.w    5,33
    dc.l    NULL
    dc.l    ITTX5
    dc.l    ITX6

ITTX5:
    dc.b    'DH:',0
    cnop 0,2

ITX6:
    dc.b    1,0,RP_JAM1,0
    dc.w    4,32
    dc.l    NULL
    dc.l    ITTX5
    dc.l    NULL

ND_PickRAM:
    dc.l    ND_Load
    dc.w    134,30
    dc.w    30,30
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    DBR30x30
    dc.l    DBS30x30
    dc.l    ITX7
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    SetRAM

ITX7:
    dc.b    9,0,RP_JAM1,0
    dc.w    1,33
    dc.l    NULL
    dc.l    ITTX7
    dc.l    ITX8

ITTX7:
    dc.b    'RAM:',0
    cnop 0,2

ITX8:
    dc.b    1,0,RP_JAM1,0
    dc.w    0,32
    dc.l    NULL
    dc.l    ITTX7
    dc.l    NULL

ND_Load:
    dc.l    ND_Save
    dc.w    168,30
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX9
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNLoad

ITX9:
    dc.b    9,0,RP_JAM1,0
    dc.w    14,7
    dc.l    NULL
    dc.l    ITTX9
    dc.l    ITX10

ITTX9:
    dc.b    'Load',0
    cnop 0,2

ITX10:
    dc.b    1,0,RP_JAM1,0
    dc.w    13,6
    dc.l    NULL
    dc.l    ITTX9
    dc.l    NULL

ND_Save:
    dc.l    ND_Rename
    dc.w    230,30
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX11
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNSave

ITX11:
    dc.b    9,0,RP_JAM1,0
    dc.w    15,7
    dc.l    NULL
    dc.l    ITTX11
    dc.l    ITX12

ITTX11:
    dc.b    'Save',0
    cnop 0,2

ITX12:
    dc.b    1,0,RP_JAM1,0
    dc.w    14,6
    dc.l    NULL
    dc.l    ITTX11
    dc.l    NULL

ND_Rename:
    dc.l    ND_Delete
    dc.w    168,52
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX13
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNRename

ITX13:
    dc.b    9,0,RP_JAM1,0
    dc.w    7,7
    dc.l    NULL
    dc.l    ITTX13
    dc.l    ITX14

ITTX13:
    dc.b    'Rename',0
    cnop 0,2

ITX14:
    dc.b    1,0,RP_JAM1,0
    dc.w    6,6
    dc.l    NULL
    dc.l    ITTX13
    dc.l    NULL

ND_Delete:
    dc.l    ND_Parent
    dc.w    230,52
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX15
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNDelete

ITX15:
    dc.b    9,0,RP_JAM1,0
    dc.w    7,7
    dc.l    NULL
    dc.l    ITTX15
    dc.l    ITX16

ITTX15:
    dc.b    'Delete',0
    cnop 0,2

ITX16:
    dc.b    1,0,RP_JAM1,0
    dc.w    6,6
    dc.l    NULL
    dc.l    ITTX15
    dc.l    NULL

ND_Parent:
    dc.l    ND_Format
    dc.w    168,74
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX17
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    GetParent

ITX17:
    dc.b    9,0,RP_JAM1,0
    dc.w    7,7
    dc.l    NULL
    dc.l    ITTX17
    dc.l    ITX18

ITTX17:
    dc.b    'Parent',0
    cnop 0,2

ITX18:
    dc.b    1,0,RP_JAM1,0
    dc.w    6,6
    dc.l    NULL
    dc.l    ITTX17
    dc.l    NULL

ND_Format:
    dc.l    ND_MakeDir
    dc.w    230,74
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX19
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNFormat

ITX19:
    dc.b    9,0,RP_JAM1,0
    dc.w    7,7
    dc.l    NULL
    dc.l    ITTX19
    dc.l    ITX20

ITTX19:
    dc.b    'Format',0
    cnop 0,2

ITX20:
    dc.b    1,0,RP_JAM1,0
    dc.w    6,6
    dc.l    NULL
    dc.l    ITTX19
    dc.l    NULL

ND_MakeDir:
    dc.l    ND_Enact
    dc.w    190,96
    dc.w    80,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY+TOGGLESELECT
    dc.w    BOOLGADGET
    dc.l    SR80x20
    dc.l    SS80x20
    dc.l    ITX25
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNMakeDir

ITX25:
    dc.b    9,0,RP_JAM1,0
    dc.w    9,7
    dc.l    NULL
    dc.l    ITTX25
    dc.l    ITX26

ITTX25:
    dc.b    'Make Dir',0
    cnop 0,2

ITX26:
    dc.b    1,0,RP_JAM1,0
    dc.w    8,6
    dc.l    NULL
    dc.l    ITTX25
    dc.l    NULL

ND_Enact:
    dc.l    ND_Cancel
    dc.w    168,118
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX21
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    FNEnact

ITX21:
    dc.b    9,0,RP_JAM1,0
    dc.w    11,7
    dc.l    NULL
    dc.l    ITTX21
    dc.l    ITX22

ITTX21:
    dc.b    'Enact',0
    cnop 0,2

ITX22:
    dc.b    1,0,RP_JAM1,0
    dc.w    10,6
    dc.l    NULL
    dc.l    ITTX21
    dc.l    NULL

ND_Cancel:
    dc.l    ND_Done
    dc.w    230,118
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX23
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    CancelButtons

ITX23:
    dc.b    9,0,RP_JAM1,0
    dc.w    7,7
    dc.l    NULL
    dc.l    ITTX23
    dc.l    ITX24

ITTX23:
    dc.b    'Cancel',0
    cnop 0,2

ITX24:
    dc.b    1,0,RP_JAM1,0
    dc.w    6,6
    dc.l    NULL
    dc.l    ITTX23
    dc.l    NULL

ND_Done:
    dc.l    ND_VolName
    dc.w    230,207
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    ITX27
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    ByeDP

ITX27:
    dc.b    9,0,RP_JAM1,0
    dc.w    11,7
    dc.l    NULL
    dc.l    ITTX27
    dc.l    ITX28

ITTX27:
    dc.b    'Done!',0
    cnop 0,2

ITX28:
    dc.b    1,0,RP_JAM1,0
    dc.w    10,6
    dc.l    NULL
    dc.l    ITTX27
    dc.l    NULL

ND_VolName:
    dc.l    ND_DirName
    dc.w    31,177
    dc.w    80,10
    dc.w    NULL
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    STRGADGET
    dc.l    ND_Bd1
    dc.l    NULL
    dc.l    ITX29
    dc.l    NULL
    dc.l    ND_VolNameSInfo
    dc.w    NULL
    dc.l    DoneIG
    dc.l    DoneRG        ;extra entry!

ND_VolNameSInfo:
    dc.l    ND_VolNameSIBuff
    dc.l    NULL
    dc.w    0
    dc.w    30
    dc.w    0
    dc.w    0,0,0,0,0
    dc.l    0
    dc.l    0
    dc.l    NULL

ND_VolNameSIBuff:
    dcb.b 30,0
    cnop 0,2

ND_Bd1:
    dc.w    -1,-2
    dc.b    6,0,RP_JAM1
    dc.b    5
    dc.l    ND_BdV1
    dc.l    NULL

ND_BdV1:
    dc.w    0,0
    dc.w    81,0
    dc.w    81,11
    dc.w    0,11
    dc.w    0,1

ITX29:
    dc.b    9,0,RP_JAM1,0
    dc.w    83,1
    dc.l    NULL
    dc.l    ITTX29
    dc.l    ITX30

ITTX29:
    dc.b    ':Volume',0
    cnop 0,2

ITX30:
    dc.b    1,0,RP_JAM1,0
    dc.w    82,0
    dc.l    NULL
    dc.l    ITTX29
    dc.l    NULL

ND_DirName:
    dc.l    ND_FileName
    dc.w    31,190
    dc.w    80,10
    dc.w    NULL
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    STRGADGET
    dc.l    ND_Bd2
    dc.l    NULL
    dc.l    ITX31
    dc.l    NULL
    dc.l    ND_DirNameSInfo
    dc.w    NULL
    dc.l    DoneIG
    dc.l    DoneRG        ;extra entry!

ND_DirNameSInfo:
    dc.l    ND_DirNameSIBuff
    dc.l    NULL
    dc.w    0
    dc.w    30
    dc.w    0
    dc.w    0,0,0,0,0
    dc.l    0
    dc.l    0
    dc.l    NULL

ND_DirNameSIBuff:
    dcb.b 30,0
    cnop 0,2

ND_Bd2:
    dc.w    -1,-2
    dc.b    5,0,RP_JAM1
    dc.b    5
    dc.l    ND_BdV2
    dc.l    NULL

ND_BdV2:
    dc.w    0,0
    dc.w    81,0
    dc.w    81,11
    dc.w    0,11
    dc.w    0,1

ITX31:
    dc.b    9,0,RP_JAM1,0
    dc.w    83,2
    dc.l    NULL
    dc.l    ITTX31
    dc.l    ITX32

ITTX31:
    dc.b    ':Directory',0
    cnop 0,2

ITX32:
    dc.b    1,0,RP_JAM1,0
    dc.w    82,1
    dc.l    NULL
    dc.l    ITTX31
    dc.l    NULL

ND_FileName:
    dc.l    ND_NewName
    dc.w    31,203
    dc.w    80,10
    dc.w    NULL
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    STRGADGET
    dc.l    ND_Bd3
    dc.l    NULL
    dc.l    ITX33
    dc.l    NULL
    dc.l    ND_FileNameSInfo
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    CheckFileName

ND_FileNameSInfo:
    dc.l    ND_FileNameSIBuff
    dc.l    NULL
    dc.w    0
    dc.w    30
    dc.w    0
    dc.w    0,0,0,0,0
    dc.l    0
    dc.l    0
    dc.l    NULL

ND_FileNameSIBuff:
    dcb.b 30,0
    cnop 0,2

ND_Bd3:
    dc.w    -1,-2
    dc.b    1,0,RP_JAM1
    dc.b    5
    dc.l    ND_BdV3
    dc.l    NULL

ND_BdV3:
    dc.w    0,0
    dc.w    81,0
    dc.w    81,11
    dc.w    0,11
    dc.w    0,1

ITX33:
    dc.b    9,0,RP_JAM1,0
    dc.w    83,1
    dc.l    NULL
    dc.l    ITTX33
    dc.l    ITX34

ITTX33:
    dc.b    ':Filename',0
    cnop 0,2

ITX34:
    dc.b    1,0,RP_JAM1,0
    dc.w    82,0
    dc.l    NULL
    dc.l    ITTX33
    dc.l    NULL

ND_NewName:
    dc.l    ND_Up
    dc.w    31,216
    dc.w    80,10
    dc.w    NULL
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    STRGADGET
    dc.l    ND_Bd4
    dc.l    NULL
    dc.l    ITX35
    dc.l    NULL
    dc.l    ND_NewNameSInfo
    dc.w    NULL
    dc.l    DoneIG
    dc.l    DoneRG        ;extra entry!

ND_NewNameSInfo:
    dc.l    ND_NewNameSIBuff
    dc.l    NULL
    dc.w    0
    dc.w    30
    dc.w    0
    dc.w    0,0,0,0,0
    dc.l    0
    dc.l    0
    dc.l    NULL

ND_NewNameSIBuff:
    dcb.b 30,0
    cnop 0,2

ND_Bd4:
    dc.w    -1,-2
    dc.b    3,0,RP_JAM1
    dc.b    5
    dc.l    ND_BdV4
    dc.l    NULL

ND_BdV4:
    dc.w    0,0
    dc.w    81,0
    dc.w    81,11
    dc.w    0,11
    dc.w    0,1

ITX35:
    dc.b    9,0,RP_JAM1,0
    dc.w    83,1
    dc.l    NULL
    dc.l    ITTX35
    dc.l    ITX36

ITTX35:
    dc.b    ':Rename To',0
    cnop 0,2

ITX36:
    dc.b    1,0,RP_JAM1,0
    dc.w    82,0
    dc.l    NULL
    dc.l    ITTX35
    dc.l    NULL

ND_Up:
    dc.l    ND_Down
    dc.w    144,74
    dc.w    20,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    UPG_R
    dc.l    UPG_S
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DecDirPos
    dc.l    DoneRG        ;extra entry!

ND_Down:
    dc.l    ND_VPot
    dc.w    144,147
    dc.w    20,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    DOWNG_R
    dc.l    DOWNG_S
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    IncDirPos
    dc.l    DoneRG        ;extra entry!

ND_VPot:
    dc.l    ND_CopyName
    dc.w    149,100
    dc.w    10,41
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    PROPGADGET
    dc.l    EPOT_R
    dc.l    EPOT_S
    dc.l    NULL
    dc.l    NULL
    dc.l    ND_VPotSInfo
    dc.w    NULL
    dc.l    DoDPProp
    dc.l    DoneRG        ;extra entry!

ND_VPotSInfo:
    dc.w    FREEVERT+PROPBORDERLESS
    dc.w    -1,0
    dc.w    -1,8191
    dc.w    0,0,0,0,0,0

ND_CopyName:
    dc.l    ND_ImageGad
    dc.w    195,204
    dc.w    17,23
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    RELVERIFY+GADGIMMEDIATE
    dc.w    BOOLGADGET
    dc.l    Arrow1_17x23
    dc.l    Arrow2_17x23
    dc.l    NULL
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneIG
    dc.l    CopyFileName    ;extra entry!

Arrow1_17x23:
    dc.w    0,0
    dc.w    17,23
    dc.w    4
    dc.l    ArrowR_17x23
    dc.b    $000F,$0000
    dc.l    NULL

Arrow2_17x23:
    dc.w    0,0
    dc.w    17,23
    dc.w    4
    dc.l    ArrowS_17x23
    dc.b    $000F,$0000
    dc.l    NULL

ND_ImageGad:
    dc.l    NULL
    dc.w    0,0
    dc.w    1,1
    dc.w    GADGHBOX+GADGHIMAGE+GADGIMAGE
    dc.w    NULL
    dc.w    BOOLGADGET
    dc.l    ND_Im35
    dc.l    NULL
    dc.l    ND_IT1
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    NULL
    dc.l    NULL        ;extra entry!

ND_Im35:
    dc.w    25,12
    dc.w    270,220
    dc.w    4
    dc.l    PIData
    dc.b    $000F,$0000
    dc.l    ND_Im36

ND_Im36:
    dc.w    144,95
    dc.w    20,51
    dc.w    4
    dc.l    VBox1Data
    dc.b    $000F,$0000
    dc.l    NULL

ND_IT1:
    dc.b    9,0,RP_JAM1,0
    dc.w    92,16
    dc.l    NULL
    dc.l    ND_Title        ;text ptr
    dc.l    ND_IT2        ;ptr to next IText

ND_IT2:
    dc.b    1,0,RP_JAM1,0
    dc.w    91,15
    dc.l    NULL
    dc.l    ND_Title        ;text ptr
    dc.l    NULL        ;ptr to next IText

ND_Title:
    dc.b    "Disc Access Panel",0
    even


* ITexts for directory listing window. There are 8 of them,
* and the parameters change according to whether the text is
* a directory list entry or a file list entry. The routine
* SetDirTexts() does this.


ND_T1:
    dc.b    9,4,RP_JAM2,0
    dc.w    2,2
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,12
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,22
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,32
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,42
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,52
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,62
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,72
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText

    dc.b    9,4,RP_JAM2,0
    dc.w    2,82
    dc.l    NULL
    dc.l    NULL        ;text ptr
    dc.l    NULL        ;ptr to next IText


* Gadgets for the disc directory listing window


LW_Pick1:
    dc.l    LW_Pick2
    dc.w    2,2
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick1
    dc.l    DoneRG        ;extra entry!


LW_Pick2:
    dc.l    LW_Pick3
    dc.w    2,12
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick2
    dc.l    DoneRG        ;extra entry!


LW_Pick3:
    dc.l    LW_Pick4
    dc.w    2,22
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick3
    dc.l    DoneRG        ;extra entry!


LW_Pick4:
    dc.l    LW_Pick5
    dc.w    2,32
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    DoneRG        ;extra entry!
    dc.l    EntPick4


LW_Pick5:
    dc.l    LW_Pick6
    dc.w    2,42
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick5
    dc.l    DoneRG        ;extra entry!


LW_Pick6:
    dc.l    LW_Pick7
    dc.w    2,52
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick6
    dc.l    DoneRG        ;extra entry!


LW_Pick7:
    dc.l    LW_Pick8
    dc.w    2,62
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick7
    dc.l    DoneRG        ;extra entry!


LW_Pick8:
    dc.l    LW_Pick9
    dc.w    2,72
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick8
    dc.l    DoneRG        ;extra entry!


LW_Pick9:
    dc.l    NULL
    dc.w    2,82
    dc.w    114,8
    dc.w    GADGHCOMP
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    NULL        ;no 1st image/border
    dc.l    NULL        ;no 2nd
    dc.l    NULL        ;no text
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL
    dc.l    EntPick9
    dc.l    DoneRG        ;extra entry!


* Special gadgets for the Disc QueryRequester.


DQR_Select:
    dc.l    DQR_Cancel
    dc.w    10,130
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    DQT_1
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL        ;18
    dc.l    DoneIG
    dc.l    LeaveReq        ;extra entry!

DQT_1:
    dc.b    9,0,RP_JAM1,0
    dc.w    19,7
    dc.l    NULL
    dc.l    DQTT_1    ;text ptr
    dc.l    DQT_2

DQT_2:
    dc.b    1,0,RP_JAM1,0
    dc.w    18,6
    dc.l    NULL
    dc.l    DQTT_1    ;text ptr
    dc.l    NULL


DQTT_1:
    dc.b    "Yes",0
    cnop    0,2

DQR_Cancel:
    dc.l    NULL
    dc.w    250,130
    dc.w    60,20
    dc.w    GADGHIMAGE+GADGIMAGE
    dc.w    GADGIMMEDIATE+RELVERIFY
    dc.w    BOOLGADGET
    dc.l    SR60x20
    dc.l    SS60x20
    dc.l    DQT_3
    dc.l    NULL
    dc.l    NULL
    dc.w    NULL        ;19
    dc.l    DoneIG
    dc.l    QuitReq        ;extra entry!

DQT_3:
    dc.b    9,0,RP_JAM1,0
    dc.w    23,7
    dc.l    NULL
    dc.l    DQTT_2    ;text ptr
    dc.l    DQT_4

DQT_4:
    dc.b    1,0,RP_JAM1,0
    dc.w    22,6
    dc.l    NULL
    dc.l    DQTT_2    ;text ptr
    dc.l    NULL

DQTT_2:
    dc.b    "No",0
    cnop    0,2